home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / disk / misc / floppy31.lha / Floppy3.1 / InstallｷFloppy < prev    next >
Text File  |  1992-09-02  |  1KB  |  53 lines
  1. ;Install script for Floppy.device
  2.  
  3. (user 2)
  4. (set @default-dest "")
  5. (set mountpath "Sys:Storage/DosDrivers/")
  6. (set mfspath0 "Devs:DosDrivers/DF0/")
  7. (set mfspath1 "Devs:DosDrivers/DF1/")
  8.  
  9. (set mfs
  10.    (= 0
  11.      (askchoice
  12.            (prompt "\nDo you want to use Floppy.device\n"
  13.                    "together MultiFileSystem ?\n")
  14.            (help
  15.                "\nIf you choice 'Yes' you must have MFS.\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n"
  16.                @askchoice-help
  17.                )
  18.            (choices "Yes" "No")
  19.            (default 0)
  20.            )
  21.       )
  22. )
  23.  
  24. (copyfiles
  25.     (source "floppy.device")
  26.     (dest "Devs:")
  27.     (safe)
  28. )
  29.  
  30. (copyfiles
  31.     (source "")
  32.         (dest mountpath)
  33.         (pattern "FS#?")
  34.     (safe)
  35. )
  36.  
  37. (delete (tackon mfspath0 "FS0") (infos))
  38. (delete (tackon mfspath1 "FS1") (infos))
  39.  
  40. (if mfs (
  41.         (rename (tackon mountpath "FS0")
  42.                 (tackon mfspath0  "FS0"))
  43.  
  44.         (rename (tackon mountpath "FS0.info")
  45.                 (tackon mfspath0  "FS0.info"))
  46.  
  47.         (rename (tackon mountpath "FS1") 
  48.                 (tackon mfspath1  "FS1"))
  49.  
  50.         (rename (tackon mountpath "FS1.info")
  51.                 (tackon mfspath1  "FS1.info"))
  52. ))
  53.